home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO038B.dsk / INIT.bas next >
BASIC Source File  |  2012-02-16  |  8KB  |  275 lines
  1. 10  REM   INIT
  2. 15  HOME : GR 
  3. 20  FOR F2 = 10 TO 30
  4. 22  FOR F3 = 1 TO 30
  5. 25  READ E
  6. 30  ON E GOTO 35,40,45,50
  7. 35  COLOR= 15: GOTO 60
  8. 40  COLOR= 12: GOTO 60
  9. 45  COLOR= 4: GOTO 60
  10. 50  COLOR= 8: GOTO 60
  11. 60  PLOT F2,F3
  12. 65  NEXT F3
  13. 70  NEXT F2
  14. 72  PRINT  CHR$(4);"BSAVE MAP,A$400,L$400"
  15. 75  PRINT : PRINT : PRINT 
  16. 76  PRINT "PRESS A KEY TO CONTINUE:";: GET X$
  17. 100  REM    INIT
  18. 110  REM    MAP, HERE TO 400
  19. 160  RESTORE 
  20. 170  FOR N = 1 TO 600
  21. 180  READ HX%(N,1)
  22. 190  NEXT N
  23. 200  DATA    2,2,2,2,2,2,3,3,3,2,2,2,2,2,2,3,3,3,3,3,3,3,2,2,2,2,2,2,2,2
  24. 210  DATA    2,2,1,1,1,2,2,2,2,2,1,1,1,1,1,2,2,2,2,3,3,3,2,1,1,2,3,2,2,2
  25. 220  DATA    2,2,1,1,2,3,2,2,2,1,1,1,2,2,2,1,3,4,4,3,3,2,2,1,1,2,2,1,1,2
  26. 230  DATA    2,1,1,1,1,3,4,2,1,1,1,2,2,3,2,2,1,3,4,4,4,2,2,2,2,1,2,1,1,2
  27. 240  DATA    2,2,1,1,1,1,3,4,3,1,1,2,2,3,3,2,2,1,1,2,2,4,1,1,2,1,1,1,2,2
  28. 250  DATA    3,2,2,1,1,2,3,4,4,2,1,2,2,2,3,3,2,2,1,2,2,3,1,1,1,2,2,2,2,2
  29. 260  DATA    3,2,2,2,1,1,2,4,3,3,2,1,2,2,3,3,3,2,1,1,1,1,1,2,2,2,2,3,2,2
  30. 270  DATA    3,3,2,2,2,1,3,2,2,3,2,1,2,3,3,3,2,2,2,1,1,2,2,3,3,3,4,3,3,2
  31. 280  DATA    3,2,2,2,1,1,2,3,4,2,2,2,1,3,3,2,2,2,1,1,1,2,3,4,3,3,4,2,2,2
  32. 290  DATA    3,2,2,2,1,1,1,4,4,4,4,2,1,4,3,2,2,1,1,1,2,3,2,2,1,1,2,2,2,2
  33. 300  DATA    2,2,2,1,1,1,1,2,2,2,2,2,1,3,4,4,3,2,1,1,1,1,2,2,1,1,1,2,2,2
  34. 310  DATA    2,2,2,1,1,1,1,2,2,2,2,2,1,3,4,4,4,2,1,1,1,1,1,2,1,1,2,2,2,3
  35. 320  DATA    2,2,3,1,1,1,2,2,2,2,2,3,3,1,2,2,1,1,1,1,2,2,1,1,1,2,2,2,3,3
  36. 330  DATA    2,3,3,2,1,1,2,2,2,3,4,4,3,2,1,1,1,1,3,3,3,4,3,2,1,1,2,2,3,3
  37. 340  DATA    2,2,4,3,2,1,1,2,2,3,3,4,2,2,2,1,1,1,3,3,4,4,1,1,1,2,2,2,2,3
  38. 350  DATA    2,2,2,4,3,1,1,2,2,2,3,3,2,2,1,1,1,1,1,3,3,3,1,1,1,1,2,2,2,2
  39. 360  DATA    3,2,2,2,4,1,1,2,2,3,3,3,2,2,1,1,1,2,1,1,3,3,1,1,1,1,1,2,2,2
  40. 370  DATA    3,3,2,2,4,4,1,1,2,3,3,2,2,2,1,1,2,2,1,1,3,3,1,1,1,1,1,1,2,2
  41. 380  DATA    3,3,3,2,2,2,2,1,1,2,2,3,4,4,3,3,2,2,1,2,2,2,3,2,1,2,3,3,2,2
  42. 390  DATA    3,3,3,3,2,2,2,2,2,2,3,4,4,4,3,3,3,2,2,2,2,3,3,3,2,2,3,3,3,2
  43. 400  DATA    3,3,3,3,2,2,2,2,2,3,4,4,4,4,3,3,2,2,2,2,3,3,3,2,2,2,2,2,3,3
  44. 410  REM    INIT DEPLOYMENTS
  45. 420  IF CT < >0  THEN  GOTO 900
  46. 430  PRINT 
  47. 440  INPUT "ENTER SCENARIO NUMBER";SC
  48. 450  ON SC GOTO 470,900,1340
  49. 460  GOTO 430
  50. 470  REM    SCENARIO #1
  51. 480 HX%(31,2) = 1
  52. 490 PA(1,4) = 31
  53. 500 HX%(61,2) = 2
  54. 510 PA(2,4) = 61
  55. 520 HX%(91,2) = 3
  56. 530 PA(3,4) = 91
  57. 540 HX%(121,2) = 4
  58. 550 PA(4,4) = 121
  59. 560 HX%(151,2) = 5
  60. 570 PA(5,4) = 151
  61. 580 HX%(181,2) = 6
  62. 590 PA(6,4) = 181
  63. 600 HX%(211,2) = 7
  64. 610 PA(7,4) = 211
  65. 620 HX%(241,2) = 8
  66. 630 PA(8,4) = 241
  67. 640 HX%(271,2) = 9
  68. 650 PA(9,4) = 271
  69. 660 HX%(301,2) = 10
  70. 670 PA(10,4) = 301
  71. 680  REM    SECOND PLAYER'S UNITS
  72. 690 HX%(5,2) = 101
  73. 700 PB(1,4) = 5
  74. 710 HX%(35,2) = 102
  75. 720 PB(2,4) = 35
  76. 730 HX%(65,2) = 103
  77. 740 PB(3,4) = 65
  78. 750 HX%(95,2) = 104
  79. 760 PB(4,4) = 95
  80. 770 HX%(125,2) = 105
  81. 780 PB(5,4) = 125
  82. 790 HX%(155,2) = 106
  83. 800 PB(6,4) = 155
  84. 810 HX%(185,2) = 107
  85. 820 PB(7,4) = 185
  86. 830 HX%(215,2) = 108
  87. 840 PB(8,4) = 215
  88. 850 HX%(245,2) = 109
  89. 860 PB(9,4) = 245
  90. 870 HX%(275,2) = 110
  91. 880 PB(10,4) = 275
  92. 890  GOTO 1770
  93. 900 SC = 2: REM    SCENARIO #2
  94. 910 HX%(10,2) = 1
  95. 920 PA(1,4) = 10
  96. 930 HX%(11,2) = 2
  97. 940 PA(2,4) = 11
  98. 950 HX%(12,2) = 3
  99. 960 PA(3,4) = 12
  100. 970 HX%(13,2) = 4
  101. 980 PA(4,4) = 13
  102. 990 HX%(14,2) = 5
  103. 1000 PA(5,4) = 14
  104. 1010 HX%(15,2) = 6
  105. 1020 PA(6,4) = 15
  106. 1030 HX%(16,2) = 7
  107. 1040 PA(7,4) = 16
  108. 1050 HX%(17,2) = 8
  109. 1060 PA(8,4) = 17
  110. 1070 HX%(18,2) = 9
  111. 1080 PA(9,4) = 18
  112. 1090 HX%(19,2) = 10
  113. 1100 PA(10,4) = 19
  114. 1110  IF CT < >0  THEN  GOTO 1920
  115. 1120  REM    2ND PLAYER
  116. 1130 HX%(580,2) = 101
  117. 1140 PB(1,4) = 580
  118. 1150 HX%(581,2) = 102
  119. 1160 PB(2,4) = 581
  120. 1170 HX%(582,2) = 103
  121. 1180 PB(3,4) = 582
  122. 1190 HX%(583,2) = 104
  123. 1200 PB(4,4) = 583
  124. 1210 HX%(584,2) = 105
  125. 1220 PB(5,4) = 584
  126. 1230 HX%(585,2) = 106
  127. 1240 PB(6,4) = 585
  128. 1250 HX%(586,2) = 107
  129. 1260 PB(7,4) = 586
  130. 1270 HX%(587,2) = 108
  131. 1280 PB(8,4) = 587
  132. 1290 HX%(588,2) = 109
  133. 1300 PB(9,4) = 588
  134. 1310 HX%(589,2) = 110
  135. 1320 PB(10,4) = 589
  136. 1330  GOTO 1770
  137. 1340  REM    #3
  138. 1350 HX%(255,2) = 1
  139. 1360 PA(1,4) = 255
  140. 1370 HX%(285,2) = 2
  141. 1380 PA(2,4) = 285
  142. 1390 HX%(315,2) = 3
  143. 1400 PA(3,4) = 315
  144. 1410 HX%(256,2) = 4
  145. 1420 PA(4,4) = 256
  146. 1430 HX%(316,2) = 5
  147. 1440 PA(5,4) = 316
  148. 1450 HX%(257,2) = 6
  149. 1460 PA(6,4) = 257
  150. 1470 HX%(317,2) = 7
  151. 1480 PA(7,4) = 317
  152. 1490 HX%(258,2) = 8
  153. 1500 PA(8,4) = 258
  154. 1510 HX%(288,2) = 9
  155. 1520 PA(9,4) = 288
  156. 1530 HX%(318,2) = 10
  157. 1540 PA(10,4) = 318
  158. 1550  REM    2ND PLAYER
  159. 1560 HX%(282,2) = 101
  160. 1570 PB(1,4) = 282
  161. 1580 HX%(343,2) = 102
  162. 1590 PB(2,4) = 343
  163. 1600 HX%(375,2) = 103
  164. 1610 PB(3,4) = 375
  165. 1620 HX%(378,2) = 104
  166. 1630 PB(4,4) = 378
  167. 1640 HX%(350,2) = 105
  168. 1650 PB(5,4) = 350
  169. 1660 HX%(291,2) = 106
  170. 1670 PB(6,4) = 291
  171. 1680 HX%(230,2) = 107
  172. 1690 PB(7,4) = 230
  173. 1700 HX%(198,2) = 108
  174. 1710 PB(8,4) = 198
  175. 1720 HX%(195,2) = 109
  176. 1730 PB(9,4) = 195
  177. 1740 HX%(223,2) = 110
  178. 1750 PB(10,4) = 223
  179. 1770  REM    RETURN TO MAIN PROG
  180. 1780 HX%(0,1) = 4: REM    OFF MAP
  181. 1790 GO = 4
  182. 1800  POKE 103,1: POKE 104,24: POKE 6144,0
  183. 1810  IF AUX  THEN  PRINT D$;"CHAIN /RAM/PLATOON."
  184. 1820  PRINT D$;"CHAIN PLATOON."
  185. 1920  TEXT : HOME 
  186. 1930  REM    SELECT COMPUTER FORCES
  187. 1940  PRINT "HOW LARGE AN ENEMY FORCE DO YOU EXPECT"
  188. 1950  PRINT "TO ENGAGE?"
  189. 1960  PRINT 
  190. 1970  PRINT "1 = INFANTRY SQUAD": PRINT 
  191. 1980  PRINT "2 = ARTILLERY BATTERY": PRINT 
  192. 1990  PRINT "3 = TANK PLATOON": PRINT 
  193. 2000  PRINT "4 = TANK COMPANY": PRINT 
  194. 2010  INPUT "ENTER THE NUMBER: ";TM
  195. 2020  ON TM GOTO 2040,2090,2130,2190
  196. 2030  GOTO 2010
  197. 2040  REM    INF SQUAD
  198. 2050  FOR E = 1 TO 8: GOSUB 2730: NEXT E: REM    INF
  199. 2060 E = 9: GOSUB 2790: REM    HQ
  200. 2070 E = 10: GOSUB 2770: REM    APC
  201. 2080  GOTO 2250 REM    LOC
  202. 2090  REM    ARTY BATT
  203. 2100  FOR E = 1 TO 7: GOSUB 2730: NEXT E: REM    INF
  204. 2110 E = 8: GOSUB 2810:E = 9: GOSUB 2810:E = 10: GOSUB 2810
  205. 2120  GOTO 2380: REM    LOC
  206. 2130  REM    TANK PLATOON
  207. 2140 E = 1: GOSUB 2790
  208. 2150 E = 2: GOSUB 2730:E = 3: GOSUB 2730:E = 4: GOSUB 2730
  209. 2160 E = 5: GOSUB 2770:E = 6: GOSUB 2770
  210. 2170  FOR E = 7 TO 10: GOSUB 2750: NEXT E
  211. 2180  GOTO 2500: REM    LOC
  212. 2190  REM    TANK CO
  213. 2200 E = 1: GOSUB 2770:E = 2: GOSUB 2770
  214. 2210  FOR E = 3 TO 8: GOSUB 2750: NEXT E
  215. 2220 E = 9: GOSUB 2810:E = 10: GOSUB 2810
  216. 2230  GOTO 2620: REM    LOC
  217. 2240  REM    INF SQUAD LOC
  218. 2250 E = 101:F = 554: GOSUB 2360
  219. 2260 E = 102:F = 584: GOSUB 2360
  220. 2270 E = 103:F = 555: GOSUB 2360
  221. 2280 E = 104:F = 586: GOSUB 2360
  222. 2290 E = 105:F = 556: GOSUB 2360
  223. 2300 E = 106:F = 583: GOSUB 2360
  224. 2310 E = 107:F = 587: GOSUB 2360
  225. 2320 E = 108:F = 557: GOSUB 2360
  226. 2330 E = 109:F = 588: GOSUB 2360
  227. 2340 E = 110:F = 585: GOSUB 2360
  228. 2350  GOTO 1770: REM    EXIT
  229. 2360 PB(E -100,4) = F:HX%(F,2) = E: RETURN 
  230. 2370  REM    ARTY BATT LOC
  231. 2380 E = 101:F = 554: GOSUB 2360
  232. 2390 E = 102:F = 555: GOSUB 2360
  233. 2400 E = 103:F = 556: GOSUB 2360
  234. 2410 E = 104:F = 557: GOSUB 2360
  235. 2420 E = 105:F = 553: GOSUB 2360
  236. 2430 E = 106:F = 587: GOSUB 2360
  237. 2440 E = 107:F = 588: GOSUB 2360
  238. 2450 E = 108:F = 584: GOSUB 2360
  239. 2460 E = 109:F = 585: GOSUB 2360
  240. 2470 E = 110:F = 586: GOSUB 2360
  241. 2480  GOTO 1770: REM    EXIT
  242. 2490  REM    TANL PLATOON LOC
  243. 2500 E = 101:F = 584: GOSUB 2360
  244. 2510 E = 102:F = 557: GOSUB 2360
  245. 2520 E = 103:F = 587: GOSUB 2360
  246. 2530 E = 104:F = 555: GOSUB 2360
  247. 2540 E = 105:F = 585: GOSUB 2360
  248. 2550 E = 106:F = 586: GOSUB 2360
  249. 2560 E = 107:F = 583: GOSUB 2360
  250. 2570 E = 108:F = 554: GOSUB 2360
  251. 2580 E = 109:F = 556: GOSUB 2360
  252. 2590 E = 110:F = 588: GOSUB 2360
  253. 2600  GOTO 1770: REM    EXIT
  254. 2610  REM    TANK CO LOC
  255. 2620 E = 101:F = 554: GOSUB 2360
  256. 2630 E = 102:F = 556: GOSUB 2360
  257. 2640 E = 103:F = 583: GOSUB 2360
  258. 2650 E = 104:F = 555: GOSUB 2360
  259. 2660 E = 105:F = 557: GOSUB 2360
  260. 2670 E = 106:F = 586: GOSUB 2360
  261. 2680 E = 107:F = 587: GOSUB 2360
  262. 2690 E = 108:F = 588: GOSUB 2360
  263. 2700 E = 109:F = 584: GOSUB 2360
  264. 2710 E = 110:F = 585: GOSUB 2360
  265. 2720  GOTO 1770: REM    EXIT
  266. 2730 PB(E,0) = E +100:PB(E,1) = 1:PB(E,2) = 2:PB(E,3) = 2:PB(E,5) = 0:PB(E,6) = 1:PB(E,7) = 20:PB(E,8) = 60:PB(E,9) = 0:PB(E,10) = 1
  267. 2740  RETURN 
  268. 2750 PB(E,0) = E +100:PB(E,1) = 1:PB(E,2) = 2:PB(E,3) = 6:PB(E,5) = 0:PB(E,6) = 2:PB(E,7) = 1:PB(E,8) = 2:PB(E,9) = 20:PB(E,10) = 20
  269. 2760  RETURN 
  270. 2770 PB(E,0) = E +100:PB(E,1) = 1:PB(E,2) = 2:PB(E,3) = 6:PB(E,5) = 0:PB(E,6) = 3:PB(E,7) = 1:PB(6,8) = 0:PB(E,9) = 0:PB(E,10) = 0
  271. 2780  RETURN 
  272. 2790 PB(E,0) = E +100:PB(E,1) = 1:PB(E,2) = 6:PB(E,3) = 2:PB(E,5) = 0:PB(E,6) = 4:PB(E,7) = 20:PB(E,8) = 60:PB(E,9) = 0:PB(E,10) = 0
  273. 2800  RETURN 
  274. 2810 PB(E,0) = E +100:PB(E,1) = 1:PB(E,2) = 2:PB(E,3) = 6:PB(E,5) = 0:PB(E,6) = 5:PB(E,7) = 0:PB(E,8) = 2:PB(E,9) = 40:PB(E,10) = 40
  275. 2820  RETURN